-- card: 21448 from stack: in.0
-- bmap block id: 0
-- flags: 0000
-- background id: 20798
-- name: 


-- part 5 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=155 top=69 right=304 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 6 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=4 top=312 right=337 bottom=170
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Install button in Home
----- HyperTalk script -----
on mouseUp
  choose button tool
  click at the loc of button "On this date"
  domenu "copy button"
  go to "home"
  doMenu "Paste Button"
  repeat
    set the loc of button "On this date" to the mouseloc
    put the mouseloc into oldloc
    set loc of msg to 18,20
    put "Position the button where you'd like it, and click."
    wait until the mouseloc ≠ oldloc
    put empty into msg
    hide msg
    repeat until the mouseclick
      set the loc of button "On this date" to the mouseloc
    end repeat
    choose browse tool
    answer "Is it at the desired location?" with "No" or "Yes"
    if it is "yes" then exit repeat
    else choose button tool
  end repeat
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=27 top=253 right=305 bottom=94
-- title width / last selected line: 0
-- icon id / first selected line: 12226 / 12226
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: On this date
----- HyperTalk script -----
on mouseUp
  visual zoom open
  go stack "On this date 3.0"
end mouseUp


-- part contents for card part 5
----- text -----
This stack was originally inspired by a daily column in my local newspaper.  I found myself wanting to keep a record of the information that this column contained so I spent a Saturday afternoon creating a stack for it.   
(Isn't Hypercard wonderful?!?!?)

Anyway, if you enjoy this stack, send me money, scripts, buttons, sounds, or anything of questionable value.  By all means send me improvements. Thanks.

Bruce Selzler                    On GEnie: B. Selzler
1318 Campus Ave.             On Prodigy: GSMN63A
Redlands, CA  92374